home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio / Ham Radio CD-ROM (Emerald Software) (1995).ISO / tech / vswrcalc / vswrcalc.bas
BASIC Source File  |  1987-08-29  |  5KB  |  103 lines
  1. 10 REM QUASATRON ELECTRONICS 8-21-87 (KCM)
  2. 20 CLS
  3. 30 KEY OFF
  4. 40 LOCATE 4,6:PRINT CHR$(201);STRING$(66,205);CHR$(187)
  5. 50 LOCATE 5,6:PRINT CHR$(186):LOCATE 5,73:PRINT CHR$(186)
  6. 60 LOCATE 6,6:PRINT CHR$(186):LOCATE 6,30:PRINT "QUASATRON ELECTRONICS":LOCATE 6,73:PRINT CHR$(186)
  7. 70 LOCATE 7,6:PRINT CHR$(186):LOCATE 7,29:PRINT STRING$(23,126):LOCATE 7,73:PRINT CHR$(186)
  8. 80 LOCATE 8,6:PRINT CHR$(186):LOCATE 8,73:PRINT CHR$(186)
  9. 90 LOCATE 9,6:PRINT CHR$(186):LOCATE 9,22:PRINT "VSWR CALCULATION AND METER CALIBRATION":LOCATE 9,73:PRINT CHR$(186)
  10. 100 LOCATE 10,6:PRINT CHR$(186):LOCATE 10,73:PRINT CHR$(186)
  11. 110 LOCATE 11,6:PRINT CHR$(186):LOCATE 11,73:PRINT CHR$(186)
  12. 120 PRINT "     ";CHR$(186);"      THIS PROGRAM WILL CALCULATE VOLTAGE STANDING WAVE RATIO     ";CHR$(186)
  13. 130 PRINT "     ";CHR$(186);"      FOR TWO VALUES OF VOLTAGE OR POWER ALONG A TRANSMISSION     ";CHR$(186)
  14. 140 PRINT "     ";CHR$(186);"      LINE.  IT WILL ALSO CALCULATE A RANGE OF VSWR'S FOR TWO     ";CHR$(186)
  15. 150 PRINT "     ";CHR$(186);"        GIVEN VALUES OF POWER USING A PRESELECTED INCREMENT.      ";CHR$(186)
  16. 160 LOCATE 16,6:PRINT CHR$(186):LOCATE 16,73:PRINT CHR$(186)
  17. 170 LOCATE 17,6:PRINT CHR$(200);STRING$(66,205);CHR$(188)
  18. 180 PRINT:PRINT:PRINT:PRINT
  19. 190 LET L=0
  20. 200 PRINT "        FOR VSWR CALCULATION ENTER 1.   FOR METER CALIBRATION ENTER 2."
  21. 210 INPUT "                                      ";Z:
  22. 220 CLS
  23. 230 IF Z=2 THEN GOTO 700
  24. 240 IF Z<>1 THEN GOTO 180
  25. 250 PRINT "                               VSWR CALCULATION":PRINT:PRINT
  26. 260 INPUT "          WHICH METHOD?   FOR VOLTAGE ENTER 1.  FOR POWER ENTER 2.  ";A
  27. 270 PRINT:PRINT:PRINT
  28. 280 IF A=2 THEN GOTO 400
  29. 290 IF A<>1 THEN GOTO 250
  30. 300 INPUT "                            ENTER FORWARD VOLTAGE ";E1:PRINT:PRINT
  31. 310 INPUT "                            ENTER REVERSE VOLTAGE ";E2:PRINT:PRINT:PRINT
  32. 320 IF E2>E1 THEN GOTO 550
  33. 330 IF E1=E2 THEN GOTO 600
  34. 340 LET S=((E1+E2)/(E1-E2))
  35. 350 LET S=S*1000
  36. 360 LET S=INT(S)
  37. 370 LET S=S/1000
  38. 380 PRINT "                                  VSWR = ";S;":1":FOR Q=1 TO 4:PRINT:NEXT Q
  39. 390 GOTO 520
  40. 400 INPUT "                            ENTER FORWARD POWER ";P1:PRINT:PRINT
  41. 410 INPUT "                            ENTER REVERSE POWER ";P2:PRINT:PRINT:PRINT
  42. 420 IF P2>P1 THEN GOTO 550
  43. 430 IF P1=P2 GOTO 600
  44. 440 LET P=SQR(P2/P1)
  45. 450 LET S1=1+P
  46. 460 LET S2=1-P
  47. 470 LET S=S1/S2
  48. 480 LET S=S*1000
  49. 490 LET S=INT(S)
  50. 500 LET S=S/1000
  51. 510 PRINT "                                  VSWR = ";S;":1":FOR Q=1 TO 6:PRINT:NEXT Q
  52. 520 INPUT "                  AGAIN? PRESS 1           FINISHED? PRESS 2";F
  53. 530 IF F=2 GOTO 990
  54. 540 CLS:GOTO 180
  55. 550 PRINT "             YOU GOTTA BE KIDDING!  FORWARD LEVEL SHOULD BE HIGHER."
  56. 560 PRINT "                      IF NOT YOU HAVE BIG TROUBLE AMIGO!!":PRINT
  57. 570 PRINT "                         TRY AGAIN WITH A CORRECT VALUE"
  58. 580 PRINT:PRINT:PRINT:PRINT
  59. 590 GOTO 200
  60. 600 CLS:PRINT "                  ******     *****     *****    *******    **"
  61. 610 PRINT "                  *     *   *     *   *     *   *         ****"
  62. 620 PRINT "                  *     *   *     *   *     *   *         ****"
  63. 630 PRINT "                  ******    *     *   *     *   ******     **"
  64. 640 PRINT "                  *         *     *   *     *   *          **"
  65. 650 PRINT "                  *         *     *   *     *   *"
  66. 660 PRINT "                  *          *****     *****    *          **"
  67. 670 PRINT:PRINT:PRINT
  68. 680 PRINT "                        YOUR TRANSMITTER JUST BLEW UP !!"
  69. 690 GOTO 180
  70. 700 CLS
  71. 710 PRINT "                       INCREMENTAL VSWR METER CALIBRATION":PRINT:PRINT
  72. 720 INPUT "                     ENTER LOWEST POSSIBLE REFLECTED POWER ";P2
  73. 730 PRINT:PRINT
  74. 740 INPUT "                           ENTER MAXIMUM FORWARD POWER ";P1
  75. 750 PRINT:PRINT
  76. 760 INPUT "                     ENTER POWER INCREMENT PER CALCULATION ";P3
  77. 770 PRINT:PRINT:PRINT
  78. 780 IF P2>P1 THEN GOTO 550
  79. 790 IF P2=P1 THEN GOTO 600
  80. 800 CLS:PRINT "                   REFL. POWER                    VSWR"
  81. 810 LET R=SQR(P2/P1)
  82. 820 LET S1=1+R
  83. 830 LET S2=1-R
  84. 840 LET S=S1/S2
  85. 850 LET S=S*1000
  86. 860 LET S=INT(S)
  87. 870 LET S=S/1000
  88. 880 IF L=20 THEN GOTO 960
  89. 890 PRINT "                      ";P2;"                     ";S;":1"
  90. 900 LET L=L+1
  91. 910 LET P2=P2+P3
  92. 920 IF P1=P2 THEN GOTO 520
  93. 930 IF P2<P1 THEN GOTO 810
  94. 940 IF P2>P1 THEN GOTO 520
  95. 950 STOP
  96. 960 INPUT "                           TO CONTINUE, HIT ENTER ";L1
  97. 970 LET L=0
  98. 980 GOTO 800
  99. 990 CLS
  100. 1000 INPUT "               STOP? ENTER  1            BACK TO DOS? ENTER  2 ";D
  101. 1010 IF D=2 THEN SYSTEM
  102. 1020 STOP
  103.